Læse og skrive i fil

Jeg skal bruge noget hjælp til at læse fra en text fil, indtil ;
eks: (dette kommer som en streng)
MFG:Roland;CMD:RTL,RDGL3,PJL,DW_PCL;MDLP-540V;CLASSRINTER;VER:6.00;STATUS:4008800050515253111100008500000000000171700;EXTRA_STATUS:000C800C800C800C8000000000085000000000;SN:ZS70137;SEH:0,1,1;
Jeg vil have denne streng skrevet til en text fil, som ny linie hver gang der er et ;

derefter skal skal linien EXSTRA_STATUS: læses, men kun med 4 bytes af gange (00C8)
og konverteres til int.

håber nogen kan hjælpe

Jeg skal bruge noget hjælp til at læse fra en text fil, indtil ;
eks: (dette kommer som en streng)
MFG:Roland;CMD:RTL,RDGL3,PJL,DW_PCL;MDLP-540V;CLASSRINTER;VER:6.00;STATUS:4008800050515253111100008500000000000171700;EXTRA_STATUS:000C800C800C800C8000000000085000000000;SN:ZS70137;SEH:0,1,1;
Jeg vil have denne streng skrevet til en text fil, som ny linie hver gang der er et ;

derefter skal skal linien EXSTRA_STATUS: læses, men kun med 4 bytes af gange (00C8)
og konverteres til int.

håber nogen kan hjælpe

Kode 

procedure Split(const Delimiter: Char; Input: string; const Strings: TStrings);
begin
  Assert(Assigned(Strings));
  Strings.Clear;
  Strings.Delimiter := Delimiter;
  Strings.DelimitedText := Input;
end;

procedure Gem(Text: String);
var
  A: TStringList;
begin
  A := TStringList.Create;
  Split(';', Parameter, A);
  A.SaveToFile('C:\\t.txt');
end;