[Alegun]

Можно ещё так

Код:

function ssd(ds: string): boolean;
var
 i: integer;
begin
 Result:= true;
 for i:= 1 to Length(ds) do
  if Pos(ds[i], '_ #+-/\*)(.,<>@"'';%^?&' ) > 0  then
   Result:= false;
end;


// Использование
if (ssd(Login)) and (ssd(Password)) then {Всё нормально} else {Варнинг! Специальные символы детектед!}