에디터에 입력된 값이 없을때, 값을 입력하라는 것을 하는데
잘 안되네요

procedure TMC_tape1.Edit1KeyPress(Sender: TObject; var Key: Char);

var
data : String;
begin

if edit1.text = '' then
showmessage('이름을 입력하세요');

if key = #27 then begin
     if Edit1.Text <> '' then
        Edit1.Text := ''
     else close;
end;

if Edit1.text = '' then exit;
if key <> #13 then exit;

data := Edit1.text;

with Query1 do
begin
       close;
       sql.clear;
       sql.add('select * from 고객, 테잎 ');
       sql.add('where 고객명 = "'+data+'" AND 고객.고객코드=테잎.고객코드');

       open;
end;
end;

이렇게 했는데요...
문제는 edit1에 아무런 키만 눌러도 showmessage가 호출됩니다. --;
제가 하려는 것은 edit1에 어떤 값을 써 넣은후 엔터키를 누르면
그때 이벤트가 발생하게 하려하거든여
아무런 값도 없는 상태에서 엔터를 치면 메시지가 뜨고 어떤 값이라도
있으면 메시지가 안뜨도록이여...

그리구 edit1에 입력한 데이터가 테이블내에 존재하지 안을때에
메시지로 '데이터가 존재하지 않음' 이라는 것도 하구 싶은데...

답변부탁드립니다.

즐거운 하루 되세요~~~