Delphi - IP

Hola Por favor Necesito el codigo fuente en delphi que me permita sacar el ip,user name, pcname, de una computadora.

lo tienes crudo..

Aquí tienes un ejemplo de una función que te la IP del equipo:

http://www.swissdelphicenter.ch/torry/showcode.php?id=67

La IP ya te lo dijo Dr Juzam y echale un vistazo a esto.

function TForm1.ComputerName:String;
var
Buffer:array[0..MAX_COMPUTERNAME_LENGTH] of Char;
MaxSize:Cardinal;
begin
MaxSize:=Sizeof(Buffer);
if not GetComputerName(@Buffer,MaxSize) then
raise Exception.Create('No hay Nombre');
Result:=StrPas(@Buffer);
end;

procedure TForm1.BitBtn34Click(Sender: TObject);
var
usuario:array[0..30] of char;
n:Cardinal;
begin
n:=30;
GetUserName(usuario,n);
BitBtn34.Caption:=StrPas(usuario);
end;
Suerte