Temp.Close;
Temp.SQL.Clear;
Temp.SQL.Text:= 'SELECT CODIGO,FECHA,PAIS FROM PAIS ';
if EdCodBuscar.Text <> '' then
Temp.SQL.Add('WHERE CODIGO = ' + QuotedStr(EdCodBuscar.Text))
else if EdPaisBuscar.Text <> '' then
Temp.SQL.Add('WHERE PAIS = ' + QuotedStr(EdPaisBuscar.Text));
Temp.Open;
if not Temp.IsEmpty then
begin
EdCodBuscar.text:= Temp.Fields[0].AsString;
EdFechaBuscar.Text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
end
else
ShowMessage('Registro no encontrado');