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;