Alles richtig, trotzdem "Incompatible Types TString List and Integer"?

[pmros]

Kann da mal schnell jemand drüber schauen und mir sagen, warum

Delphi-Quellcode:

function commands (request:string):TStringList; stdcall;
var
s1, s2, s3: String;
Liste: TStringList;

begin
s1:='H';
s2:='G0';
s3:='G1';
Liste := TStringList.Create;
Liste:=
    Liste.Add(s1);
    Liste.Add(s2);
    Liste.Add(s3);

result:=Liste;
end;

exports commands;

Das hier ausgibt?!:

Code:

[Error] Project2.dpr(24): Incompatible types: 'TStringList' and 'Integer'

Ich habe doch s1 - s3 als strings definiert und nicht als integer, wo ist denn das Problem?