procedure TForm1.Button2Click(Sender: TObject);
begin
   if OpenDialog1.Execute then
   begin
      SendFile('localhost', '/1.php', opendialog1.FileName);        
   end;
end;