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.Text + ' ' + Caption
else
Result := TextoEdit.Text + Caption;
end;