Zeile zerlegen und teile in Variablen einfügen

[Äfan]

Hi,

jetzt häufen sich meine fragen wieder habe letzter zeit wenig mit delphi gemacht, aber jetzt gehts wieder los, mit den fragen:

Ich habe folgenden Text in Variable "Line":

ShowMessage ('haha', OK, Information)

Ich will, dass beim klick auf den button, der text zerlegt wird bzw. die informationen gewonnen werden und in die jeweiligen variablen eingefügt werden. In variable "Text" soll das "haha" rein kommen, in Typ soll "OK" und in Icon soll "Information" rein kommen, wie stell ich das jetzt am besten an ? Ich habe es mit hilfe von Ultimator schon so hinbekommen, aber es funktioniert nicht richtig. Bitte um Hilfe !?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Line: string;
  poskommaeins: integer;
  text: string;
  poskommazwei: integer;
  typ: string;
  icon: string;
begin
  line := Memo1.Lines.Strings[0];
  poskommaeins := pos(',' , line);
  Text := copy(line, pos('(', line), pos(',', line));
  delete(line, 0, posKommaEins);
  Typ := copy(line, 0, posKommaZwei);
  Icon := copy(line, posKommaZwei, pos(')',line));
  Edit1.Text := 'Text: ' + Text + 'Typ: ' + typ + 'Icon: ' + icon
  end;

mfg