Inputboxda gireceğim değeri listboxa aktarma

[.ılgın]

Merhaba, ben bir buton ekledim bunla değerler gireceğim girdiğim değeri listboxa nasıl aktarırım.

[greenegitim]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
 Pass: String;
begin

if InputQuery('Password needed', 'Enter the password:', Pass) then
begin
ListBox1.Items.Add(Pass);
end;
end;

[.ılgın]

Çok sağolun