1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.choosedata_btnClick(Sender: TObject);
   var
    ta: string;
    ex: boolean;
    stl: tstringlist;
    stl2:tstringlist;
    idcount: integer;
    id: boolean;
    sec: string;
    mydate: tdatetime;
begin
    stl := tstringlist.Create;
    stl2 := tstringlist.Create;
    sec:=(FormatDateTime('yyyy:mm:dd hh:mm:ss',now));
    memo1.Lines.Add ('INSERT INTO poster VALUES(100,');
    memo1.lines.Add(sec);
    StL.LoadFromFile('C:\Pfad\wert-aus-einem-andern-programm.txt');
    memo1.Lines.Addstrings(stl);
    memo1.Lines.SaveToFile('C:\query.txt');
    stl2.LoadFromFile('C:\query.txt');

    ta:= stl2.Strings[];//hier ist das proble
m
    FResult := FMysql.query(ta, true, ex);

    if assigned(FResult) then begin
   statusbar1.panels[0].text :='Query: Ergebnis gespeichert';
  end
 end;					

1:

ta:= StringsList2.strings[0];  //0 ist der erste Index in deiner StringList					

1:
2:
3:
4:
5:

var i: integer;
...
for i:= 1 to StringList2.count 
 memo.lines.add(StringList2.strings[i-1]);
...					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var meinStringVariable: string;
...

//ein bestimmter Index
meineStringVariable:= meineStringList.Strings[index];
//oder den gesamten Text
meineStringVariable:= meineStringList.text;

...					

1:
2:
3:

stl2.LoadFromFile('C:\query.txt');
    ta:= stl2.GetText;
        memo3.lines.add(ta);