procedure TForm3.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
VAR
ara:boolean;
begin
if key=#13 then // enter tuşuna bas
begin
ara:=table1.locate('ÖLÇÜMTARIHI',datetimepicker1.Date,[locaseinsensitive]);
if ara=false then
showmessage('TARİH BULUNAMADI');
END;