Adicionando caracteres a um texto selecionado

Function AddBarra(S: string): string;
var
Temp: string;
begin
Temp := S;
if S[Length(Temp)] <> '' then
Temp := Temp + '';
Result := Temp;
end;