لطفا کمک کنید

[sadegh&parnian]

سلام
این کد به زبان delphi است
با توجه به این کد تنها در صورت تکراری بودن کد کالاپیغام میدهد (کد تکراری است)من میخواهم که اگر کاربر کد کالا را اشتباه نوشت ولی نام کالا (name_k)و شرکت سازنده (na_co)را درست نوشت پیام دهد که کد کالا را درست بنویسید.(نام کالا را از DBEdit2 و نام شرکت سازنده را از DBEdit4 می گیرد)



procedure TForm_Sabt_kala.BitBtn1Click(Sender: TObject);
var a:TLocateOptions;
b:boolean;
s:string;
begin
a:=[loCaseInsensitive];
DataModule1.Test_sabt_kala.Open;
b:=DataModule1.Test_sabt_kala.Locate('code_k',trim (DBEdit1.Text),a
DataModule1.Test_sabt_kala.Close;
if b=true then
begin
ShowMessage('in record tekrari ast....');
DBEdit1.SetFocus;
DBEdit1.SelectAll;
end
else
begin
try
DataModule1.Table_Sabt_kala.Post;
except
ShowMessage(کالا تکراری است);
DBEdit3.SetFocus;
exit;
end;
BitBtn3.Enabled:=true;
BitBtn2.Enabled:=false;
BitBtn1.Enabled:=false;
end;