Tstring, string probleme

[shmia]

Delphi-Quellcode:

steuerbefehl := TStringlist.Create; 
try
  steuerbefehl.LoadFromFile('D:\Test.txt');
  for i := 0 to steuerbefehl.Count-1 do
     apdcomport1.putstring(steuerbefehl[i]);
finally
  steuerbefehl.Free;
end;