Skip to main content
2 de 2
removeu 10 caracteres do conteúdo

Você poderia criar uma função nos seguintes moldes, onde SetOfChar é uma constante declarada:

SetOfChar = set of 'A'..'z';

function Concatena(const TextoEdit, Caption: String): String;
begin
  if TextoEdit = '' then
    Result := Caption
  else if TextoEdit in SetOfChar then
    Result := TextoEdit + ' ' + Caption
  else
    Result := TextoEdit + Caption;
end;