Function FirstChar

Retorna o primeiro caractere da string passada ao parâmetro S.


function FirstChar(S:String):String;begin
       Result:=copy(S,1,1);end;


Usando :
procedure TForm1.BitBtn25Click(Sender: TObject);begin
       ShowMessage(FirstChar(Edit2.Text));end;