Build a DNS server that responds with an in-memory list of IPs based on the name submitted.

procedure TForm1.clDnsServer1GetHandedRecords(Sender: TObject;
   AConnection: TclUdpUserConnection; const AName: string; ARecords: TclDnsRecordList);
var
   rec: TclDnsARecord;
begin
   ARecords.Clear();
 
   rec := TclDnsARecord.Create();
   ARecords.Add(rec);
 
   rec.Name := AName;
   rec.IPAddress := '111.222.333.444';
   rec.TTL := 60000;
end;