MySQL - Endnu et spørgsmål

Her var lige et hurtigt eksempel.

procedure TForm1.Button1Click(Sender: TObject);
Var
S : String;
begin
  // Indtast brugernavn
  InputQuery('Brugernavn','Indtast brugernavn',S);
  // Luk Query
  If Query1.Active Then
    Query1.Close;
  // Generer Query
  Query1.SQL.Text :=
  'select * from brugere where brugernavn = '''+s+'''';
  //Åben Query
  Query1.Open;
  //Indsat indholdet af felterne 'brugernavn' og 'password'
  Memo1.Lines.Clear;
  While not Query1.Eof do
  Begin
    Memo1.Lines.Add(Query1.FieldByName('brugernavn').AsString+
                    '  :  '+Query1.FieldByName('password').AsString);
    Query1.Next;
  End;
  Query1.Close;
end;

Håber det kan anvendes...

Hej jeg fik det selv til at virke!!

men fandt senere ud af at man skulle vedlægge en fil med DBnavn, user, pass osv.. Har du en måde til at undgå dette ?