1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TfmUploader.btnStartClick(Sender: TObject);
begin
        btnStart.Caption:='Bitte warten...'; // Button-Caption
        Cursor:=crHourGlass; // Cursor setzen
        if odUpload.Execute then
        begin
                slText.LoadFromFile(odUpload.FileName); // <--- Hier ist das Problem!
                ShellExecute(Handle,'open',PChar('http://www.domain.net/php-script.php?param1='+odUpload.FileName+'¶m2='+slText.Text),'','',0);
        end;
        Cursor:=crDefault;
        btnStart.Caption:='Upload';
end;					

1:

 slText:= TStringList.create;