Queria Fazer o Campo Senha aparacer Tipoo uma Máscara (****) Meu Botão faz isso Procedure...
var USU,SENH: String;
Begin
USU:=InputBox('Campo Usuário','Insira um Usuário',''));
SENH:=(InputBox('Campo Senha','Insira uma Senha',''));
if (DM1.IBDataset1.Locate('NOME',USU,[])) and (DM1.IBDataSet1.FieldByName('SENHA').asstring = SENH) then
Begin
Form1:=TForm1.Create(Application);
Form1.ShowModal
End
Else
ShowMessage('Usuário Ou Senha Estão Incorretos , Digite Novamente ! ! ! ');
End;