Umgang mit einem Record

[Gehstock]

Delphi-Quellcode:

  type
  Item = record
   S1 : Integer;
   S2 : String;
end;

function Cut(Text: String):Item;
var
  sl: TStrings;
  x : Item;
  t: String;
begin
   sl := TStringList.Create;
   sl.delimiter := ' ';
   sl.DelimitedText := Text;
   t:=  StringReplace(sl.Strings[0],'(','',[rfReplaceAll]);
   t:=  StringReplace(t,')','',[rfReplaceAll]);
   x.S1 := StrtoInt(t); //1. Teilstring
   //ShowMessage(t);    //zum test bis hier stimmts
   x.S2 := sl.Strings[1]; //2. Teilstring
   //ShowMessage(sl.Strings[1]);  //zum test bis hier stimmts
end;

Procedure OpenTab;
var
s : String;
x: Integer;
tli: TListItem;
b: Item;
begin
With frmmain do Begin
  SynMemo1.Clear;
  ADOQuery1.SQL.Clear;
  ADOQuery1.Close;
  s:= Treeview1.Selected.Text;
  cut(s);

  ShowMessage(b.s2);// zeigt nichts an                     zum test
//  s:= S2;
  ADOQuery1.SQL.Text := 'SELECT * FROM '+s;
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    s:=ADOQuery1.FieldByName('Feld1').AsString;
    tli:=ListView1.Items.Add;
    tli.Caption:=s;
    Next;
End;
end;
end;

wie Fulle ich ein Record und wie frage ich es ab