Как написать процедуру в ДЕЛФИ??

[саша9]

Помогите,пожалуйста.У меня уже есть готовая программа,мне только надо сделать еще одну кнопку,которая будет ставить кнопки "сортировка массива" и "сортировка обмена" симметрично.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math, Grids;

type
TForm1 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
edt1: TEdit;
strngrd1: TStringGrid;
btn1: TButton;
btn2: TButton;
edt2: TEdit;
edt3: TEdit;
lbl4: TLabel;
lbl5: TLabel;
btn3: TButton;
Label1: TLabel;
btn4: TButton;
lbl6: TLabel;

procedure btn3Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure btn4Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.btn3Click(Sender: TObject);
begin
close;
end;



procedure TForm1.btn1Click(Sender: TObject);
var
i,k:Integer;
begin
Randomize;
k:=StrToInt(edt1.text);
strngrd1.colcount:=k;

for i:=1 to strngrd1.colcount do strngrd1.cells[i-1,1]:=IntToStr(randomrange(StrToInt(edt 2.text), StrToInt(edt3.text)));;
strngrd1.Width:=strngrd1.ColCount*( strngrd1.DefaultColWidth+1)+4;
strngrd1.Cells[i,0] := Edt1.Text;
for i:=1 to strngrd1.colcount do
strngrd1.Cells[i-1,0]:=inttostr(i);

end;

procedure TForm1.btn2Click(Sender: TObject);

var
a:array[1..10] of integer;
min:integer;
buf:integer;
i,k,j:integer;
begin
for i:=1 to strngrd1.colcount do
strngrd1.cells[i-1,2]:=strngrd1.cells[i-1,1];
label1.caption:='';
for i:=0 to strngrd1.colcount-2 do
begin
min:=i;
for j:=i+1 to strngrd1.colcount do
if StrToInt(strngrd1.cells[j,2])<strtoint(strngrd1.cells[min,2]) then min:=j;
buf:=strtoint(strngrd1.cells[i,2]);
strngrd1.cells[i,2]:=strngrd1.cells[min,2];
strngrd1.cells[min,2]:=inttostr(buf);

for k:=1 to strngrd1.colcount-1 do
label1.caption:=label1.caption+ ' '+ strngrd1.cells[k,2];
label1.caption:=label1.caption+ #13;

end;
label1.caption:= label1.caption+ #13 + 'массив отсортирован';
strngrd1.Cells[i-1,2]:=inttostr(buf) ;
end;


procedure TForm1.FormActivate(Sender: TObject);
var
i:Integer;
begin
for i:=1 to strngrd1.colcount do
strngrd1.Cells[i-1,0]:=inttostr(i);
end;

procedure TForm1.btn4Click(Sender: TObject);
var
k,i,buf: Integer;
changed:Boolean;
begin
for i:=1 to strngrd1.colcount-1 do
strngrd1.cells[i-1,2]:=strngrd1.cells[i-1,1];
lbl6.caption:='';
repeat
changed:= False;
for k:=1 to strngrd1.colcount-2 do
if StrToInt(strngrd1.cells[k-1,2])>strtoint(strngrd1.cells[k,2]) then
begin
buf:= strtoint(strngrd1.cells[k-1,2]);
strngrd1.cells[k-1,2]:=strngrd1.cells[k,2];
strngrd1.cells[k,2]:=inttostr(buf);
changed:=True;
end;
for i:=1 to strngrd1.colcount do
lbl6.Caption:=lbl6.Caption+ ' ' + strngrd1.cells[i,2];
lbl6.caption:=lbl6.caption+ #13;
until not changed;
lbl6.caption:= lbl6.caption+ #13 + 'массив отсортирован';
end;



end.