ListBox Delimiter

[newuser01]

Folgendes Problem:

Delphi-Quellcode:

procedure Tfrm_main.ListBox1Click(Sender: TObject);
var
  i: Integer;
  sl:TStringList;
begin

//Ich klicke einen Eintrag in der ListBox an und übergebe diesen als Delimitertext zb. "a=Heute ist ein heißer Sommertag"

sl := TStringList.Create;

for i := 0 to sl.Count - 1 do
begin
  if sl.Selected[i] = true then
  begin
    sl.DelimitedText := ListBox1.Items.Strings[i];
  end;
end;

//jetzt übergebe ich das Delimiter-Zeichen
sl.CommaText := 'a='; // sl.Delimiter := 'a=' funktioniert leider nicht es kommt die Fehlermeldung "incompatible char string"

//und jetzt soll alles was nach dem Delimiterzeichen 'a=' steht an Edit1.Text übergeben werden
for i := 0 to sl.Count - 1 do
begin
Edit1.Text := sl[i];
end;

end;

//in Edit1 müsste also stehen "Heute ist ein heißer Sommertag"

Das ganze funktioniert natürlich nicht aber vielleicht könnt ihr ja weiterhelfen