// Сохранение свойств формы
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var iniFile: TiniFile;
begin
 Try
  // Создаем или перезаписываем файл инициализации в текущей директории
  iniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'File.ini');
  // Сохраняем свойства формы 
  iniFile.WriteString('Pos', 'Top', IntToStr(Top));
  iniFile.WriteString('Pos', 'Left', IntToStr(Left));
  iniFile.WriteString('Pos', 'Height', IntToStr(Height));
  iniFile.WriteString('Pos', 'Width', IntToStr(Width));
 Finally
  iniFile.Free;
 End;
end;

// Восстанавливаем свойства формы первым способом
procedure TForm1.FormCreate(Sender: TObject);
begin
 Try
  // Открываем файл инициализации из текущей директории
  iniFile:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'File.ini');
  // Проверяем, нет ли пустых значений
  If (iniFile.ReadString('Pos', 'Top', IntToStr(Top)) = '')
   OR (iniFile.ReadString('Pos', 'Left', IntToStr(Left)) = '')
    OR (iniFile.ReadString('Pos', 'Height', IntToStr(Height)) = '')
     OR (iniFile.ReadString('Pos', 'Width', IntToStr(Width)) = '')
  // Если пустые значения найдены, то стандартный вывод формы
  Then WindowState:=wsNormal Else
  // Если пустые значения не найдены, то восстанавливаем свойства формы
    Begin
      Top:=StrToInt(iniFile.ReadString('Pos', 'Top', IntToStr(Top)));
      Left:=StrToInt(iniFile.ReadString('Pos', 'Left', IntToStr(Left)));
      Height:=StrToInt(iniFile.ReadString('Pos', 'Height', IntToStr(Height)));
      Width:=StrToInt(iniFile.ReadString('Pos', 'Width', IntToStr(Width)));
    End;
 Finally
   iniFile.Free;
 End;
end;             

// Восстанавливаем свойства формы вторым способом
procedure TForm1.FormCreate(Sender: TObject);
Const NoFind = -1000;
Var iniFile               : TIniFile;
    Not_Left, Not_Top     : Integer;
    Not_Height, Not_Width : Integer;
begin
  iniFile:=TIniFile.Create(ExtractFilePath(Application.Exename) + 'IniFile.ini');
  // Проверяем нет ли пустых значений.
  Not_Left:=iniFile.ReadInteger('Position', 'Left', NoFind);
  Not_Top:=iniFile.ReadInteger('Position', 'Top', NoFind);
  Not_Height:=iniFile.ReadInteger('Position', 'Height', NoFind);
  Not_Width:=iniFile.ReadInteger('Position', 'Width', NoFind);

  // Если пустые значения найдены, то стандартный центрируем форму
  If (Not_Left = NoFind) OR (Not_Top = NoFind) 
    OR (Not_Height = NoFind) OR (Not_Width = NoFind)
      Then Form1.Position:=poScreenCenter
   // Если пустые значения не найдены, то восстанавливаем свойства формы
   Else
     Begin
       Left:=iniFile.ReadInteger('Position', 'Left', Left);
       Top:=iniFile.ReadInteger('Position', 'Top', Top);
       Height:=iniFile.ReadInteger('Position', 'Height', Height);
       Width:=iniFile.ReadInteger('Position', 'Width', Width);
     End;
  iniFile.Free;
end;

// Восстанавливаем свойства формы третьим способом, при помощи реестра
...
Var Reestr: TRegistry;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
 Reestr:=TRegistry.Create;
 Reestr.RootKey:=HKEY_CURRENT_USER;
 If Reestr.OpenKey('\SoftWare\MyProg\', False) Then
   Begin
     Form1.Top:=Reestr.ReadInteger('Top');
     Form1.Left:=Reestr.ReadInteger('Left');
     Form1.Height:=Reestr.ReadInteger('Height');
     Form1.Width:=Reestr.ReadInteger('Width');
     Reestr.CloseKey;
   End;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 Reestr.RootKey:=HKEY_CURRENT_USER;
 If Reestr.OpenKey('\SoftWare\MyProg\', False) Then
   Begin
     Reestr.WriteInteger('Top', Form1.Top);
     Reestr.WriteInteger('Left', Form1.Left);
     Reestr.WriteInteger('Height', Form1.Height);
     Reestr.WriteInteger('Width', Form1.Width);
     Reestr.CloseKey;
   End;
 Reestr.Free;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 If Table1.Modified Then Table1.Post;
 If Query1.Modified Then Query1.Post;
end;

procedure TForm1.mnuSave(Sender: TObject);
begin
 If Table1.Modified Then Table1.Post;
 If Query1.Modified Then Query1.Post;
end;

// Пример с диалогом MessageBox 
procedure TForm1.Button1Click(Sender: TObject);
Var ModalResult: TModalResult;
begin
 ModalResult:=MessageBox(0, 'Сообщение', 'Заголовок', MB_YESNOCANCEL);
 If ModalResult = idYES Then ShowMessage('Нажата кнопка Да')
   Else
 If ModalResult = idNO Then ShowMessage('Нажата кнопка Нет')
   Else
 If ModalResult = idCANCEL Then ShowMessage('Нажата кнопка Отмена');
end;

// Пример с диалогом MessageDlg
procedure TForm1.Button2Click(Sender: TObject);
Var ModalResult: TModalResult;
begin
 ModalResult:=MessageDlg('Сообщение', mtInformation, mbYesNoCancel, 0);
 If ModalResult = mrYES Then ShowMessage('Нажата кнопка YES')
   Else
 If ModalResult = mrNO Then ShowMessage('Нажата кнопка No')
   Else
 If ModalResult = mrCANCEL Then  ShowMessage('Нажата кнопка Cancel');
end;

// В событие OnHint объекта приложения Application назначаем обработчик
procedure TForm1.FormCreate(Sender: TObject);
begin
 Application.OnHint:=StatusHint;
end;

// Сам обработчик заносит текст подсказки в панель строки состояния
procedure TForm1.StatusHint(Sender: TObject);
Begin
 StatusBar1.Panels[1].Text:=Application.Hint;
End;

// Стандартный автозапуск
 а) [Autorun]
    Icon = Autorun.ico
    Open = Autorun.exe

// Автозапуск HTML-страницы     
 б) [Autorun]                       
    Icon = Autorun.ico
    Open = Start Autorun.htm

// Автозапуск с извлечением иконки из исполняемой программы:
 в) [Autorun]
    Icon = Autorun.exe, 0
    Open = Autorun.exe

[Autorun]
Open = AutoRun.exe 
Icon = AutoRun.ico

Shell\Play = Установить драйвер DivX Mpeg4
Shell\Play\Command = DivX\RunInf.exe DivX.inf

Shell\Play1 = Установить драйвер Microsoft Mpeg4
Shell\Play1\Command = Mpeg4\RunInf.exe Mpeg4fix.inf

Shell\Play2 = Установить Windows Media Player
Shell\Play2\Command = Media\mpie4ful.exe

Shell\Video = Начать просмотр фильма
Shell\Video\Command = FlyVCD.exe VideoCD.mls

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 If Key = #27 Then Close;
end;

uses Word2000, OleServer, COMobj;

...

procedure TForm1.Button1Click(Sender: TObject);
Var FileName, NewName : OleVariant;
    A1, A2            : OleVariant;
begin
 // Задаем имя открываемого документа (шаблона)
 FileName:='C:\Мои документы\Шаблон.doc';
 // Задаем имя сохраняемого документа
 NewName:='C:\Копия Шаблона.doc';
 // Соединяемся с Word
 WordApplication1.Connect;
 // Задаем имена меток
 A1:='Num1';
 A2:='Num2';

 // Открываем файл (шаблон)
 WordApplication1.Documents.Open(FileName,
                                 EmptyParam, EmptyParam, EmptyParam,
                                 EmptyParam, EmptyParam, EmptyParam,
                                 EmptyParam, EmptyParam, EmptyParam,
                                 EmptyParam, EmptyParam);

 // Находим первую метку
 WordApplication1.ActiveDocument.Bookmarks.Item(A1).Select;
 WordApplication1.Selection.Text:='Текст_1';

 // Находим вторую метку
 WordApplication1.ActiveDocument.Bookmarks.Item(A2).Select;
 WordApplication1.Selection.Text:='Текст_2';

 // Переход на начало документа
 WordApplication1.Selection.SetRange(0,0);
 WordDocument1.ConnectTo(WordApplication1.ActiveDocument);

 // Сохраняем файл шаблона с изменениями
 WordDocument1.SaveAs(NewName);
 // "Показываем" Word
 WordApplication1.Visible:=True;
 // Разъединяемся с Word
 WordApplication1.Disconnect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 // Создаем возможность выделения нескольких строк
 DBGrid1.Options:=DBGrid1.Options + [dgMultiSelect];
end;

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
 // Проверяем действительно ли выбрано несколько записей БД
 If DBGrid1.SelectedRows.Count <> 0 Then
   Begin
     // Перед удалением выводим запрос
     If MessageDlg('Удалить помеченные записи БД ?', mtWarning,
                   [mbYes, mbNo], 0) = mrYes
       Then DBGrid1.SelectedRows.Delete;
   End
 Else
   Begin
     // Если выбрана всего одна запись, то удаляем только ее одну
     If MessageDlg('Удалить текущую запись БД ?', mtWarning,
                   [mbYes, mbNo], 0) = mrYes 
       Then Table1.Delete;
   End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 If OpenDialog1.Execute Then Edit1.Text:=OpenDialog1.FileName;
 If OpenDialog2.Execute Then Edit2.Text:=OpenDialog2.FileName;
 CopyFile(PChar(Edit1.Text), PChar(Edit2.Text), True);
end;

procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 SpeedButton1.Font.Color:=clRed;
 SpeedButton1.Font.Size:=10;
 SpeedButton1.Font.Style:=[fsBold]
end;

procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 SpeedButton1.Font.Color:=clBlack;
 SpeedButton1.Font.Size:=8;
 SpeedButton1.Font.Style:=[]
end;

procedure TForm1.LabelMailClick(Sender: TObject);
begin
 ShellExecute(Handle,'Open','mailto: satanzone@yandex.ru', NIL, NIL, SW_SHOWNORMAL);
end;

procedure TForm1.LabelURLClick(Sender: TObject);
begin
 ShellExecute(HWND(NIL), NIL, 'IExplore', 'http://icops.narod.ru', NIL, SW_SHOWNORMAL);
end;

procedure TForm1.LabelMailMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 LabelMail.Font.Style:=LabelMail.Font.Style - [fsUnderLine];
end;

procedure TForm1.LabelMailMouseLeave(Sender: TObject);
begin
 LabelMail.Font.Style:=LabelMail.Font.Style + [fsUnderLine];
end;

procedure TForm1.LabelURLMouseLeave(Sender: TObject);
begin
 LabelURL.Font.Style:=LabelURL.Font.Style + [fsUnderLine];
end;

procedure TForm1.LabelURLMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
 LabelURL.Font.Style:=LabelURL.Font.Style - [fsUnderLine];
end;

procedure TForm1.mnuFileClick(Sender: TObject);
begin
 If mnuFile.Checked = False Then
   Begin
     mnuFile.Checked:=True;
     ShowMessage('Пункт меню отмечен !!!');
   End
 Else
   If mnuFile.Checked = True Then
     Begin
       mnuFile.Checked:=False;
       ShowMessage('Пункт меню не отмечен !!!');
     End;
end;

procedure TForm1.FormCreate(Sender: TObject);
Var BMP : TBitmap;
begin
 BMP:=TBitmap.Create;
 BMP.LoadFromFile('MyPicture.bmp');
 Image1.Picture.Assign(BMP);
 Image1.Canvas.Brush.Color:=clBlue;
 Image1.Canvas.Font.Name:='Arial';
 Image1.Canvas.Font.Size:=10;
 Image1.Canvas.TextOut(10, 10, 'Некоторый текст !!!');
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I: Integer;
begin
 For I:=1 To 100000 Do
   Begin
     Label1.Caption:=IntToStr(I);
     Application.ProcessMessages;      
   End;
end;

procedure TForm1.mnuDBDelClick(Sender: TObject);
begin
 If Application.MessageBox('Удалить запись ?', 'Удаление:', MB_YESNO) = idYES
   Then Table1.Delete;
end;

procedure TForm1.mnuDBGotoClick(Sender: TObject);
Var Go: String;
begin
 Go:='1';
 InputQuery('Переход к записи', 'Перейти к записи с номером:', Go);
 Try
   If NOT Table1.Locate('Code', Go, []) Then
     MessageDlg('Запись с номером' + Go + 'не найдена', mtWarning, [mbOK], 0);
 Except
   MessageDlg('Значение' + Go + 'не допустимо', mtWarning, [mbOK], 0); 
 End;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 // Открываем список
 ComboBox1.DroppedDown:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 // Закрываем список
 ComboBox1.DroppedDown:=False;
end;

procedure TForm1.Bla-Bla-Bla(Sender: TObject);
begin
 If ComboBox1.DroppedDown = True Then ShowMessage('Список открыт')
   Else ShowMessage('Список закрыт')
end;

procedure TForm1.DBGrid1EditButtonClick(Sender: TObject);
begin
 FormAdd2.ShowModal;
end;

uses ..., StdCtrls;
...

procedure TForm1.FormCreate(Sender: TObject);
Var Memo1 : TMemo;
begin
 Memo1:=TMemo.Create(Self);
 Memo1.Parent:=Form1;
 Memo1.Top:=10;
 Memo1.Left:=10;
 Memo1.Height:=90;
 Memo1.Width:=150;
 Memo1.OnKeyPress:=MyMemoKeyPress;
end;

procedure TForm1.MyMemoKeyPress(Sender: TObject; var Key: Char);
begin
 If NOT(Key In ['0'..'9', Chr(8), Chr(32)]) Then Key:=Chr(0);
end;

procedure TForm1Main.FormCreate(Sender: TObject);
begin
 DecimalSeparator:='.';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage('Текущий разделитель: ' + DecimalSeparator);
 Edit1.Text:='10' + DecimalSeparator + '5';
end;

procedure TForm1.Button1Click(Sender: TObject);
Var P: TPoint;
begin
 GetCursorPos(P); // Сохраняем позицию курсора
 ...
 // Что-то делаем
 ...
 SetCursorPos(P.X, P.Y); // Восстанавливаем позицию курсора
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Try
   If Button1.CanFocus Then Button1.SetFocus;
 Except
 End;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 If Button1.CanFocus Then Button1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 SetFileAttributes('File.txt', FILE_ATTRIBUTE_HIDDEN);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;