Hola,
A riesgo de meter la pata y ciñéndome a lo que entiendo se requiere... ¿qué tal parece lo siguiente?
Código Delphi
[-]
var
DON_JOSE: string = '- Hola don José';
DON_PEPITO: string = '- Hola don Pepito';
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(DON_PEPITO +' '+ DON_JOSE);
Pointer(DON_JOSE) := nil;
Pointer(DON_PEPITO) := nil;
ShowMessage(DON_PEPITO +' '+ DON_JOSE);
end;