[Alegun]

Сообщение от Zames

...чтобы можно было ввести только два символа "N" и "S" в конце поля?

Используйте EditMask типа

!90-00.0>L;1;_

в связке с

Код:

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 case Key of
 '0'..'9', 'N', 'n', 'S', 's': exit;
 else
  Key:= #0;
 end;{case}
end;