registro no existe y consultarlos

[agustin173]

[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais
Temp.close;
Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais ';
if edcodbuscar.Text <> '' then
begin
Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);
Temp.Active := True;
If Temp.Fields[0].AsString <> edcodbuscar.Text then begin
Showmessage(' Registro No Existe ');
end
else
EdCodBuscar.text:= Temp.Fields[0].AsString;
EDfechaBuscar.text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
end
else
if EDPaisbuscar.Text <> '' then
begin
Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text);
Temp.Active := True;
if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe');
EdCodBuscar.Text:= Temp.Fields[0].AsString;
EdFechaBuscar.Text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
[delphi]