[-=SCiP=-]

GomZik Конечно не чего не получится так.
Придется все создовать через алгоритм.
Типа мини пример.

procedure TForm1.Button1Click(Sender: TObject);
var
OPDi:TOpenDialog;
begin
OPDi:=TOpenDialog.Create(nil);
if OPDi.Execute then
begin
//Твой код
end;
end;

Потобие такого попробуй!
Тока Обьяви Сокет компонента
TOpenDialog; << в место этого.
А так через форму новрятли что то получится!
Кстати в Функции обьявляй не String а PChar