devolver valores al form que lo llamo

[djanp]

lo de blueSteel esta bien pero solo puedo usar el frame para un form dado q le devolvera a ese form los datos...lo q no me vale

mmm a ver como es el tema de Lepe...

la funcion abrirventana es un simple open form??? pq ahora mis mo no se como ahcerlo
y en cuanto a los q devuelve la funcion buscar, lo q queiro me lo devuelve en BUSCAREN, pero en que momento se meten


TBuscar = (codigo, nombre); estos son los 2 valores q quiero sacar...

Function TPC.Buscar( BuscarEn:TBuscar; InternalOpen :Boolean):String;
begin
Result := false; en mi caso quiero q sea string lo q devuelva...
case BuscarEn of
codigo :
with Tagente.Create(nil) do
try
if ShowModal = mrOk then
// en la ventana de busqueda se seleccionó un cliente válido
Result := DBGagentes.Fields[0].AsString;
finally
Free;
end;
end;
if (InternalOpen) then
if Result = false then // si no elige nada en la ventana de búsqueda, Result tendrá el valor -1.
AbrirVentana(BuscarEn, Result);
end;