هل يمكن للديلفي التعامل مع php - نسخة قابلة للطباعة

PHP كود :
function _upload(_file:string):tstringlist;
    var f : TIdMultiPartFormDataStream;

    begin
    result:=TStringList.Create;
    f := TIdMultiPartFormDataStream.Create;
    Form1.Cursor:=crHourGlass;
    form1.IdHTTP1.Request.UserAgent:='Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.11 (KHTML, like Gecko) Chrome/23.0.1271.64 Safari/537.11';
      try
     f.AddFile('fileup', _file, 'multipart/form-data');

    try
      result.Text :=trim(Form1.IdHTTP1.Post('http://www.m7-job.com/upload/upload.php', f));
    except
    end;
      finally
    f.Free;
    Form1.Cursor:=crDefault;
    Form1.stat1.Panels[0].Text := '';
        end;
    end;

    function findlink(str:tstringlist):string;
    var   i:integer;
    begin
    for I := 0 to str.Count-1 do

      if AnsiPos('www.m7-job.com/upload/up_down/',Trim(str.Strings[i]))<>0 then
      Break;

    //  Result:=str.Strings[i];
      Result:=Copy(str.Strings[i],11,ansipos('">',str.Strings[i])-11);
    end;




procedure TTestThread.Execute;
var
  j: Integer;
begin


  FreeOnTerminate:=True;
  for j:=0 to Form1.lst1.Items.Count-1 do
  begin
  Application.ProcessMessages;
 Form1.stat1.Panels[0].Text := 'Upload '+form1.lst1.Items.Strings[j] +' ....';  //Thread is destroyed
 form1.mmo1.Lines.Add(findlink(_upload(form1.lst1.Items.Strings[j])))
 end;
end;