1:
2:
3:
4:
5:

procedure TForm2.Btn_SaveClick(Sender: TObject);
begin
  Memo_html.Lines.SaveToFile('ftp.html');
  ShowMessage('Die HTML-Datei wurde gespeichert !!!');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm2.Btn_SaveClick(Sender: TObject); 
var sZeile:String
begin
  sZeile := Memo_html.Lines.Strings[11]; {Zeile 12 in sZeile zwischenspeichern}
  insert(Label.Caption,sZeile,2); {LabelCaption wird in sZeile an pos 3 eingefügt}
  Memo_html.Lines.delete(11);{alte Zeile wird gelöscht}
  Memo_html.Lines.Insert(sZeile,11);{neue Zeile wird eingefügt}
  Memo_html.Lines.SaveToFile('ftp.html'); 
  ShowMessage('Die HTML-Datei wurde gespeichert !!!'); 
end;					

1:

Memo_html.Lines.Insert(sZeile,11);{neue Zeile wird eingefügt}					

1:

Memo_html.Lines.Insert(11, sZeile);{neue Zeile wird eingefügt}