Delphi, Limitar uma String num tamanho X de caracteres

http://informaticode.blogspot.com.br/search/label/Delphi


function retorna_string(texto_original:string;tam_max:integer):string;
var
  i:integer; // variavel contadora
  texto_final:string; // variavel auxiliar para retorno da string
begin
  texto_final:=''; // inicializa variavel
  for I:=1 to tam_max do
  begin
    texto_final:=texto_final+texto_original[i]; // armazena caracteres até o num. X de caracteres
  end;
  result:=(texto_final); // retorna variavel do tamanho desejado
end;