1:
2:
3:
4:

if opendialog.execute then
  begin
    machwasmit(opendialog.filename)
  end;                    

1:
2:
3:
4:
5:
6:

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
OpenTextFileDialog1.Execute;
Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
end;                    

1:
2:
3:
4:
5:

begin
 if NOT Opendialog1.Execute then
 exit;
 Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName); 
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin
OpenTextFileDialog1.Execute;
if NOT OpenTextFileDialog1.Execute then exit;
Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if (ssLeft in Shift) then
  begin
    ReleaseCapture;
    SendMessage(Self.Handle, WM_SYSCOMMAND, SC_MOVE + 1, 0);
  end;
end;