Zeilen in einer Memo auslesen

[Sec]

jo danke ihr seit echt die besten

nur eine lösung fehlt mir noch, er färbt mir jetzt nach dem laden alle zeilen rot... wie kann ich das so schreiben das er nur rot schreibt wenn rot in einer bestimmten zeile vorhanden ist.... panel1=clred das er auch nur des wieder rot macht


ich verlange zwar jetzt ganz schön viel aber für euch richtige software entwickler ist das doch ne arbeit von 5min die ihr für mich opfern könnt

Delphi-Quellcode:

procedure TForm1.Open1Click(Sender: TObject);
var i:integer    ;
begin
///das laden der save datei ///
begin
      if OpenDialog1.Execute() then
      begin
      memo1.lines.LoadFromFile(opendialog1.filename);
      end;
/// laden der farben nach dem speichern///
begin
for i := 1 to 35 do
Memo1.Lines[i] := 'red 128';
Memo1.lines[i] := 'lime 65280';

panel1.Color := clRed;
panel2.Color := clRed;
panel3.Color := clRed;



end;
///
end;