20 خطوط
399 B
ObjectPascal
20 خطوط
399 B
ObjectPascal
procedure THelloWorldForm.Button1Click(Sender: TObject);
|
|
begin
|
|
ShowMessage('Hello World - Button 1');
|
|
end;
|
|
|
|
procedure THelloWorldForm.Button2Click(Sender: TObject);
|
|
begin
|
|
ShowMessage('Hello World - Button 2');
|
|
end;
|
|
|
|
procedure THelloWorldForm.Button3Click(Sender: TObject);
|
|
begin
|
|
ShowMessage('Hello World - Button 3');
|
|
end;
|
|
|
|
procedure HelloWorld;
|
|
begin
|
|
HelloWorldForm.ShowModal;
|
|
end;
|