검색 버튼을 클릭하면 입력한 이름과 일치하는 데이터의 모든 값을 가져오려 하는데... 잘 되지 않는군요...

코딩은 아래와 같습니다...

코딩상 무슨 문제점이 있나요??
코딩상의 문제가 없다면... 속성에서 다른 값을 확인해야 할 것이 있나요??

고수님의 조언을...

참고로...델파이5, 파라독스DB로 테스트 중입니다...


procedure TForm1.btnSearchClick(Sender: TObject);
var
  Name:string;
begin

  if edtSearch.text='' then
    begin
    beep;
    edtStatus.text:='검색조건을 입력하세요...'
    end
  else
  begin

  Name:=edtSearch.text;
  query1.Close;
  query1.sql.clear;
  query1.sql.add('select * from meminfo where name=:Name');
  query1.open;

  edtName.text:=query1.FieldByName('Name').Value;
  edtAddr.text:=query1.FieldByName('Address').Value;
  mePhone.text:=query1.FieldByName('Phone').Value;
  meHP.text:=query1.FieldByName('Hp').Value;
  edtMail.text:=query1.FieldByName('Email').Value;
  edtMSN.text:=query1.FieldByName('Msn').Value;
  edtStatus.text:='찾았습니다...';
  btnModify.Enabled:=True;
  btnDelete.Enabled:=True

  end;
end;