Zeile im Memo Feld ändern

[Andidreas]

hmm einmal funktioniert es, aber dann nicht mehr...

auch seh ich das ergebnis dann nicht im memo feld...
ich poste mal die ganze procedure vielleicht sieht dann jemand meinen fehler

Delphi-Quellcode:

procedure TPrint_Form.prUPS(sOutputType : String);

var
sPath, sRow           : String;
txtFile               : TextFile;
i, iLen, iLine, iPos  : Integer;

begin

  sPath := ExtractFilePath(Application.ExeName) + 'Files\' + sOutputType + '_Fields.txt';
  i := 0;

  {$I-}
  AssignFile(txtFile, sPath);
  If IOResult <> 0 Then
  Begin
    MessageDlg('Error while Load File ' + sOutputType, mtError, [mbOK], 0);
  End;
  Reset(txtFile);
  If IOResult <> 0 Then
  Begin
    MessageDlg('Error while Open File ' + sOutputType, mtError, [mbOK], 0);
  End;
  {$I+}

  With (PrintShipLbl_main.Main_Form) Do
  Begin
    While Not EOF(txtFile) Do
    Begin
      {$I-}
      ReadLn(txtFile, sRow);
      If IOResult <> 0 Then
      Begin
        MessageDlg('Error while Reading File ' + sOutputType, mtError, [mbOK], 0);
      End;
      {$I+}
      iPos := Pos('&', sRow);
      i := StrToInt(Copy(sRow, 1, 2));
      iLine := StrToInt(Copy(sRow, iPos + 1, 2)) -1;
      If iLine <> 0 Then
      Begin
        mem_prtf.Lines[iLine] := mem_prtf.Lines[iLine] + Copy(strgrid_interfaceval.Cells[i, 1], iLen - 1);
        //ShowMessage(mem_prtf.Lines.Strings[iLine]);
      End;
    End;
  End;

end;

so folgendes zum ablauf...
ich habe in einem memo feld meine daten stehen...
in der procedure möchte ich eine text file durchlesen, das die linien enthält, an die im memo feld daten hinzugefügt werden sollen... in einem string grid habe ich dann die werte die hinzugefügt werden müssen...
ich hoffe es war für alle verständlich ^^