ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от =Zeus=

mobilka

Код:

var path: string;
path := OpenDialog1.FileName;

не работает. вставил на онклик бутон2-

Цитата:

procedure TForm1.Button2Click(Sender: TObject);
var path: string;
begin
if OpenDialog1.Execute then begin
Listbox1.Items.Add(ExtractFileName(opendialog1.Fil eName));
end;

а в функцию-

Цитата:

s := SendFile('site.ru', '/get.php', 'path := OpenDialog1.FileName;');

пробовал и наоборот но все равно не пашет