procedure TForm1.Button1Click(Sender: TObject);
Var A, B: Real;
begin
 A:=4.5;
 Edit1.Text:=FloatToStr(A);
 B:=StrToFloat(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
Var I: Integer;
begin
 ListBox1.Clear;
 For I:=0 To Query1.FieldCount-1 Do
   ListBox1.Items.Add(Query1.Fields[I].FieldName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 StringGrid1.Row:=1;
 StringGrid1.Col:=2;
 If StringGrid1.CanFocus Then StringGrid1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var JPG: TJPEGImage;
    BMP: TBitmap;
begin
 JPG:=TJPEGImage.Create;
 BMP:=TBitmap.Create;

 If OpenPictureDialog1.Execute Then
   Begin
     If ExtractFileExt(OpenPictureDialog1.FileName) = '.jpg' Then
       Begin
         JPG.LoadFromFile(OpenPictureDialog1.FileName);
         BMP.Assign(JPG);
         BMP.Width:=200;
         BMP.Height:=150;
         JPG.Assign(BMP);
         JPG.SaveToFile('New_Picture.jpg');
       End
     Else
       If ExtractFileExt(OpenPictureDialog1.FileName) = '.bmp' Then
         Begin
           BMP.LoadFromFile(OpenPictureDialog1.FileName);
           BMP.Width:=200;
           BMP.Height:=150;
           BMP.SaveToFile('New_Picture.bmp');
         End;
   End;   

 JPG.Free;
 BMP.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var BMP: TBitmap;
begin
 BMP:=TBitmap.Create;
 BMP.LoadFromFile('Picture.bmp');
 Form1.Canvas.Brush.Bitmap:=BMP;
 Form1.Canvas.FillRect(Rect(0, 0, Screen.Width, Screen.Height));
 BMP.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var BMP: TBitmap;
begin
 BMP:=TBitmap.Create;
 BMP.LoadFromFile('Picture.bmp');
 Form1.Canvas.Draw(0, 0, BMP);
 BMP.Free;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 If Shift = [ssLeft] Then
   Begin
     Form1.Canvas.LineTo(Mouse.CursorPos.X, Mouse.CursorPos.Y-20);
   End;
end;

// Загружаем картинку в поле текущей записи
procedure TForm1.Button1Click(Sender: TObject);
begin
 If OpenPictureDialog1.Execute Then
   Begin
     Table1.Edit;
     TBLOBField(Table1.FieldByName('Photo')).LoadFromFile(OpenPictureDialog1.FileName);
   End;
end;

// Очищаем поле с картинкой текущей записи
procedure TForm1.Button2Click(Sender: TObject);
begin
 Table1.Edit;
 TBLOBField(Table1.Fields[1]).Clear;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 If (Form1.Width >= 100) OR (Form1.Width <= 100) OR
    (Form1.Height >= 100) OR (Form1.Height <= 100)
   Then
     Begin
       Form1.Width:=100;
       Form1.Height:=100
     End;
end;

procedure TForm1.Button1Click(Sender: TObject);
Var H: HWND;
begin
 H:=FindWindow(Nil, 'WinRar - WinRar');
 If H <> 0 Then SendMessage(H, WM_CLOSE, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Color:=RGB(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));
 Label1.Color:=PaletteRGB(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 If Edit1.Text = '' Then Button1.OnClick:=Nil
   Else Button1.OnClick:=Button1Click;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 If CheckBox1.Checked Then Button2.OnClick:=Nil
   Else Button2.OnClick:=Button2Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(Button1.ClassName);
end;

Application.MessageBox(PChar('Запись с номером ''' + edtCode.Text +
                             ''' в базе уже существует !'),
                             'Ошибка:', MB_OK);

// Русский интерфейс
procedure TForm1.mnuLanguageRusClick(Sender: TObject);
Var Ini: TIniFile;
begin
 Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Russian.lng');

 mnuFile.Caption:=Ini.ReadString('Menu File', 'mnuFile', 'Файл');
 mnuFileOpen.Caption:=Ini.ReadString('Menu File', 'mnuFileOpen', 'Открыть');
 mnuFileSave.Caption:=Ini.ReadString('Menu File', 'mnuFileSave', 'Сохранить');
 mnuFileExit.Caption:=Ini.ReadString('Menu File', 'mnuFileExit', 'Выход');

 mnuLanguage.Caption:=Ini.ReadString('Menu Language', 'mnuLanguage', 'Язык');
 mnuLanguageRus.Caption:=Ini.ReadString('Menu Language', 'mnuLanguageRus', 'Русский');
 mnuLanguageEng.Caption:=Ini.ReadString('Menu Language', 'mnuLanguageEng', 'Английский');

 mnuHelp.Caption:=Ini.ReadString('Menu Help', 'mnuHelp', 'Справка');
 mnuGetHelp.Caption:=Ini.ReadString('Menu Help', 'mnuGetHelp', 'Помощь');
 mnuAbout.Caption:=Ini.ReadString('Menu Help', 'mnuAbout', 'О программе...');

 Ini.Free;
end;

// Английский интерфейс
procedure TForm1.mnuLanguageEngClick(Sender: TObject);
Var Ini: TIniFile;
begin
 Ini:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'English.lng');

 mnuFile.Caption:=Ini.ReadString('Menu File', 'mnuFile', 'File');
 mnuFileOpen.Caption:=Ini.ReadString('Menu File', 'mnuFileOpen', 'Open');
 mnuFileSave.Caption:=Ini.ReadString('Menu File', 'mnuFileSave', 'Save');
 mnuFileExit.Caption:=Ini.ReadString('Menu File', 'mnuFileExit', 'Exit');

 mnuLanguage.Caption:=Ini.ReadString('Menu Language', 'mnuLanguage', 'Language');
 mnuLanguageRus.Caption:=Ini.ReadString('Menu Language', 'mnuLanguageRus', 'Russian');
 mnuLanguageEng.Caption:=Ini.ReadString('Menu Language', 'mnuLanguageEng', 'English');

 mnuHelp.Caption:=Ini.ReadString('Menu Help', 'mnuHelp', 'Help');
 mnuGetHelp.Caption:=Ini.ReadString('Menu Help', 'mnuGetHelp', 'Help');
 mnuAbout.Caption:=Ini.ReadString('Menu Help', 'mnuAbout', 'About...');

 Ini.Free;
end;