Alegum, исправил как Вы предложили сократил код.
Код:
function f(a: string): string;
begin
Result:= Copy(a, 1, Pos(' ', a));
Delete(a, 1, Pos(' ', a));
Result:= Result + a[1] + '.';
Delete(a, 1, pos(' ', a));
Result:= Result + a[1] + '.';
Работает прекрасно.
Спасибо за помощь в вопросе.