[dec]

Hola,

Algo muy parecido a esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr( StrLen( Edit1.Text) + StrLen( Edit2.Text ) );
end;

P.D. Eso es tanto en Delphi como en Free Pascal o Lazarus...