Variable!!

[[Lepe]]

Para ver un contacto, creamos una propiedad más en la ventana (como Left, Top, Width de la propia ventana), en este caso le llamo "Id".

Código Delphi [-]
TVerContacto = Class (TForm)
private
  Fid:Integer;
  procedure SetId(Value:Integer);
public 
  property  Id: Integer read FId write SetId;
end;

implementation

procedure TVerContacto.SetId(Value:Integer);
begin
  if Value <> FId then
  begin     
      FId := VAlue;
abrimos la consulta con el parámetro FId y mostramos los datos.
  end;
end;

Cuando se va a leer la propiedad Id se lee (read) el contenido de FId que es una variable privada.
Cuando se va a escribir en la propiedad Id (write) se ejecuta el procedimiento SetId, que es el que se encarga de abrir la consulta pasandole el Id del contacto que se quiere ver.

Para mostrar los contactos desde un boton:

Código Delphi [-]
   FrmVerContacto := TVerContacto.Create(application); // creamos la ventana
   FrmVerContacto.Id := << el id del contacto >>// asignamos el Id, esto hace que se ejectue "SetId" automáticamente y
                                                                   //se abra la consulta en el form TVerContacto
   FrmVerContacto.Show;// la mostramos

Esta es la forma de pasar valores de un Form a otro mediante propiedades.

Cada vez que se pulse el botón, automáticamente se mostrará los detalles del contacto.

Donde private hace que solo pueda ver esas variables las clases de la misma Unidad.

Public hace que se pueda usar desde cualquier Unidad.

Saludos