begin
if edit1='пароль' then
begin
Label1.Caption:='Верно';
edit1.Enabled:=false;
end;
else
begin
ShowMessage('Неверно!');
edit1.Text:='';
edit1.SetFocus;
end;
end;