Delete a user's Login In Sql Server 2000

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOCommand1.CommandText := 'Exec SP_DropLogin ' + QuotedStr('UserName');
  ADOCommand1.Execute;
end;