var
Bul:Boolean;
begin
bul:=Query1.Locate('quarydb ismi',neyde yazilirsa o kıyaslanır@rnek:Edit1.text gibi,[locaseinsensitive]);
if Bul then
...
...
...
...
end;

{bu kadar}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, cavb : 0..255;
begin

if AlphaBlend=False then
begin
AlphaBlendValue:=255;
AlphaBlend:=True;
end;
cavb:=AlphaBlendValue;
for i := cavb downto 0 do
begin
AlphaBlendValue := i;
Application.ProcessMessages;
Sleep(4);{saniyesi ne kadar çok olursa yavaş kapanması okadar çok olur}
end
end;

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
var
toplam:integer;
begin
if column.FieldName='Stop' then
begin
toplam:=dbgrid1.Fields[3].AsInteger+dbgrid1.Fields[4].AsInteger+dbgrid1.Fields[5].AsInteger+dbgrid1.Fields[6].AsInteger+dbgrid1.Fields[7].AsInteger+dbgrid1.Fields[8].AsInteger+dbgrid1.Fields[9].AsInteger+dbgrid1.Fields[10].AsInteger+dbgrid1.Fields[11].AsInteger+dbgrid1.Fields[12].AsInteger+dbgrid1.Fields[13].AsInteger+dbgrid1.Fields[14].AsInteger+dbgrid1.Fields[15].AsInteger+dbgrid1.Fields[16].AsInteger+dbgrid1.Fields[17].AsInteger+dbgrid1.Fields[18].AsInteger;
toplam:=toplam+dbgrid1.Fields[19].AsInteger+dbgrid1.Fields[20].AsInteger+dbgrid1.Fields[21].AsInteger+dbgrid1.Fields[22].AsInteger+dbgrid1.Fields[23].AsInteger+dbgrid1.Fields[24].AsInteger+dbgrid1.Fields[25].AsInteger+dbgrid1.Fields[26].AsInteger+dbgrid1.Fields[27].AsInteger+dbgrid1.Fields[28].AsInteger+dbgrid1.Fields[29].AsInteger+dbgrid1.Fields[30].AsInteger+dbgrid1.Fields[31].AsInteger+dbgrid1.Fields[32].AsInteger+dbgrid1.Fields[33].AsInteger+dbgrid1.Fields[34].AsInteger;
toplam:=toplam+dbgrid1.Fields[35].AsInteger+dbgrid1.Fields[36].AsInteger+dbgrid1.Fields[37].AsInteger+dbgrid1.Fields[38].AsInteger+dbgrid1.Fields[39].AsInteger+dbgrid1.Fields[40].AsInteger+dbgrid1.Fields[41].AsInteger+dbgrid1.Fields[42].AsInteger;
showmessage('Puan Durumu:'+dbgrid1.Fields[1].AsString+'='+inttostr(toplam));
table1.Edit;
dbgrid1.Fields[2].AsInteger:=toplam;

procedure TForm1.Timer1Timer(Sender TObject);
var mTMEMORYSTATUS;
begin
GlobalMemoryStatus(m);
Label1.caption=' %' + IntToStr(m.dwMemoryLoad );
Label2.caption= + FloatToStr(m.dwTotalPhys 1024.01024.0) +' MB';
Label3.caption=+FloatToStr (m.dwAvailPhys 1024.01024.0)+' MB';
end;

procedure MyException(Sender:TObject; E:Exception);

interface
...
...
procedure TForm1.MyException(Sender:TObject; E:Exception);
begin
if (E.ClassType.ClassName='EConvertError') then
begin
{ buraya yapmak istediklerinizi yazabilirsiniz }
end
else Application.ShowException(E);
end;
...
...
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyException;
end;

var
cTColor;
begin
c=Edit1.Color;
Edit1.Color=Edit1.Font.Color;
Edit1.Font.Color=c;
end;