Tstring, string probleme

[skaven]

procedure TForm1.schreibenClick(Sender: TObject);
var
steuerbefehl : string;
begin
apdcomport1.putstring(steuerbefehl);
apdcomport1.putstring(#13);
end;

procedure TForm1.DateieinlesenClick(Sender: TObject);
var
steuerbefehl : tstrings;
begin
steuerbefehl := TStringlist.Create;
with steuerbefehl do begin
loadfromFile('D:\test.txt');
try
finally
end;
end;
end;
end.

Hallo,
ich will mit dem Code einen Text aus einer datei einlesen und sie als variable (steuerbefehle) an putstring weitergeben, funzt aber nicht, schnief, wieso?