hvis det for at skjule dit password for nysgerrige blikke...
så kan du benytte en simpel kryptering som:
const
  KRYPTNGL = 'TekstTilKryptering_KendteDuDen';
function krypter(txt:string):string;
  var
    i : integer;
begin
  for i := 1 to length(txt) do
    txt[i] := chr(ord(txt[i])+ord(KRYPTNGL[(i mod length(KRYPTNGL))+1]));
  result := txt;
end;
function dekrypter(txt:string):string;
  var
    i : integer;
begin
  for i := 1 to length(txt) do
    txt[i] := chr(ord(txt[i])-ord(KRYPTNGL[(i mod length(KRYPTNGL))+1]));
  result := txt;
end;
hvis du gerne vil teste krypteringen, så start et nyt projekt i delphi, drop 3 editboxe på formen, og i OnKeyUp eventet fra edit1 skriver:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  Edit2.Text := krypter(Edit1.Text);
  Edit3.Text := dekrypter(Edit2.Text);
end;
Så er det i hvert fald ikke BARE lige at aflure passwordet!