Comboboxen Summieren bei onChange

[cobus_tschulz]

öhm ist zwar gerade dumm aber ich bekomme nen Fehler wenn ich auf

strg := combobox1.text gehe

hier der Code ....

Delphi-Quellcode:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  Pos1 :string;
  SubStr :string;
  Summe: integer;
  Str: integer;
begin
Str := combobox1.Text;
Pos1 := Pos('(',Str);
SubStr := Copy(combobox1.Text,Pos1,2);
ShowMessage(SubStr);
end;