Função pra preencher string

function Preenche(Campo, Letra, Alinhamento: String; Tamanho: Integer): String;
var i00 : Integer;
begin
    // Campo = Passar campo a ser preenchido
    // Letra    = Caracter pra ser prenchido
    // Alinhamento = Preencher a esquerda("E") ou direita ("D")

    Campo := Trim(Campo);

     Result := '';
     for i00:=1 to Tamanho - Length(Campo) do Result := Result + Letra;

     if Alinhamento = 'E' then
        Result := Result + Campo
    else
         Result := Campo + Result;
   end;
end;


EX:  edit1.Text := Preenche(edit1.Text, '0', 'E', 10);

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;

Function QuotedStr

Uses Unit SysUtils

A função QuotedStr retorna a string do parâmetro com apóstrofo (') no início e fianal. Se a string passada for em branco, a função retorna dois apóstrofos ('').

Sintaxe da sua utilização:

QuotedStr('Texto');

Ex:

procedure TForm1.Button14Click(Sender: TObject);

begin
       ShowMessage(QuotedStr('Márcio Edésio Simão'));
end;